|
AutoCAD VBA : Nach Text suchen und diesen löschen
gerhard123 am 23.10.2008 um 16:43 Uhr (0)
Hallo,ich habe mal wieder eine Frage. Ich habe in einer Zeichnung mehrere Layouts in denen der Texte "Für die Produktion gesperrt" steht.Wenn ich nun ein Layout Prüfe, dann möcht ich gerne mittels Programm das der Text in dem aktuellen Layout gelöscht wird.Wie kann ich das bewerkstelligen?Gibt es eine Möglichkeit NUR den Text in aktuellen Layout zu löschen.Alle Texte in der ZNG mit "Für die Produktion gesperrt" habe ich schon herausgefunden.Vorab schon mal Danke für eure HilfeGerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Layout und Mansfen
gerhard123 am 21.04.2009 um 08:35 Uhr (0)
Hallo zusammen,hoffe es kann mir jemand weiterhelfen.Wenn ich in einem Layout mehrere Mansfens habe, wie kann ich diese einzeln aktivieren und die Ansicht auf eine 3D-Objekt entsprechend ausrichten zB. Ansicht von vorne, Seintenansicht un Draufsicht.Vorab schon mal Danke für eure HilfeGerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Schriftkopf im aktuellen Layout ermitteln
gerhard123 am 21.10.2008 um 12:51 Uhr (0)
Hallo,wie kann ich, wenn ich mehrere Layouts mit Rahmen und Schriftköpfen in der Zeichnung habe den Schriftkopf im aktuellen Layout ermitteln und zB von diesem ein Attribut abfragen zB. GezVonHabe in VBA leider noch nicht sehr viel Ahnung. Vorab schon mal Danke für eure Hilfe Gerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Schriftkopf im aktuellen Layout ermitteln
gerhard123 am 21.10.2008 um 12:51 Uhr (0)
Hallo,wie kann ich, wenn ich mehrere Layouts mit Rahmen und Schriftköpfen in der Zeichnung habe den Schriftkopf im aktuellen Layout ermitteln und zB von diesem ein Attribut abfragen zB. GezVonHabe in VBA leider noch nicht sehr viel Ahnung. Vorab schon mal Danke für eure Hilfe Gerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Schriftkopf im aktuellen Layout ermitteln
gerhard123 am 21.10.2008 um 18:28 Uhr (0)
Hallo Theo,danke für den Code, damit kann ich sehrwohl etwas anfangen.Meißt ist der Anfang immer das schwerste Problem.Lg.Gerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Schriftkopf im aktuellen Layout ermitteln
gerhard123 am 21.10.2008 um 13:20 Uhr (0)
Hallo Carsten,danke für deine rasche Antwort, aber hast du viellecht ein Code-Beispiel da ich noch nicht sehr viel Erfahrung in VBA habe.Danke Gerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Optionen
gerhard123 am 21.09.2009 um 11:16 Uhr (0)
Hallo zusammen,ich möchte für unsere CAD-Anwender einge Voreinstellungen in den Optionen mittels VBA vornehmen.Ich scheitere noch an einigen Kleinigkeiten.Ich suche noch folgende Checkfelder in Optionen - Anzeige - Layout-Elemente im VBA - Druckbarer Bereich - Papierhintergrund anzeigen - Papierschattierung anzeigenIch war der Meinung diese Punkt unterThisDrawing.Application.Preferences.Display....zu finden, hab es aber nicht geschafft.Vorab schon mal Danke für Eure HilfeGerhard
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : AutoCAD plotten
gerhard123 am 24.03.2009 um 12:40 Uhr (0)
Hallo FB,ich erstelle auch atomatisiert PDF-Plots.anbei mirn Progamm mit dem ich arbeite, vielleicht kannst du damit was anfangen.Public Sub pdfPlot() Dim m_oDoc As AcadDocument Dim m_oLayout As AcadPlotConfiguration Dim dwgPfad, dwgName, strFilename As String dwgPfad = ThisDrawing.GetVariable("dwgPrefix") + "DWG" pdfName = Replace(LCase(ThisDrawing.GetVariable("dwgName")), ".dwg", ".pdf") strFilename = dwgPfad + pdfName Dim oPlotConfig As AcadPlotConfiguration Dim strFilename As String Dim Layout, plott ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Nach Text suchen und diesen löschen
gerhard123 am 24.10.2008 um 06:08 Uhr (0)
Hallo Klaus,danke für deine Antwort.Ich habe mir die Texte mit einem Lispbefehl rausgesucht.Im Parameter suche übergebe ich den Text "Für Produktion ..."Lösche damit aber alle Texte in der Zeichnung und nicht nur den gewünschten im aktuellen Layout.Code:(defun c:DWLoeschText ( suche / text) (setvar "tilemode" 0) (setq text (ssget "X" (list (cons 0 "TEXT") (cons 1 suche)))) (if (not text) (princ) (command "_erase" text "") ) (princ))Bin in VB leider noch nicht so fit, hast du viellecht ein Codebe ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Batchprogramm
gerhard123 am 21.01.2009 um 13:49 Uhr (0)
Hallo Alfred,ein guter Ansatz, aber ich verwende eine ähnlichen Batch auch für das Plotten von Zeichnungen und da habe ich das selbe Problem wenn eine Zeichnung kaputt ist.Anbei ein Codeauszug aber aus eine DB ist aber egal, Public Sub machBilder() Dim SQL As String Dim z As Integer Dim t1, t2 As String SQL = ("select Dokumentennummer, dateiname from DB where Dokumentennummer = 11111 order by Dokumentennummer;") Set rs = CreateObject("adodb.recordset") Set con = CreateObject("adodb.connection") con.Open " ...
|
| In das Form AutoCAD VBA wechseln |
